home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / manchest.lha / MANCHESTER / manchester / 4.1 / Cursor-storeOn.st < prev    next >
Text File  |  1993-07-24  |  1KB  |  38 lines
  1. "    NAME        Cursor-storeOn
  2.     AUTHOR        Bernard Horan <bernard@is.morgan.com>
  3.     CONTRIBUTOR    Bernard Horan <bernard@is.morgan.com>
  4.     FUNCTION      to _properly_ store a Cursor on a stream
  5.     ST-VERSIONS    4.1
  6.     PREREQUISITES     
  7.     CONFLICTS     
  8.     DISTRIBUTION    world
  9.     VERSION        1.0
  10.     DATE        October 1992
  11.     SUMMARY        An additional method to _properly store a Cursor. By properly, I mean in such a way that it can be read and subsequently used as a Cursor (i.e. recreating the handle). BH, 1/10/92"
  12. !
  13.  
  14. 'From Objectworks(r)\Smalltalk, Release 4 of 25 October 1990 on 12 February 1992 at 5:32:09 pm'!
  15.  
  16.  
  17.  
  18. !Cursor methodsFor: 'storing'!
  19.  
  20. storeOn: aStream
  21.     "Append to the argument aStream a sequence of characters that is an
  22.     expression whose evaluation creates an object similar to the receiver."
  23.     "Override Object's method, to avoid storing the handle"
  24.     "BH, 1 October 1992"
  25.         aStream
  26.         nextPut: $(;
  27.         nextPutAll: self class name;
  28.         nextPutAll: ' image: ';
  29.         store: image;
  30.         nextPutAll: ' mask: ';
  31.         store: mask;
  32.         nextPutAll: ' hotSpot: ';
  33.         store: hotSpot;
  34.         nextPutAll: ' name: ';
  35.         store: name;
  36.         nextPut: $)! !
  37.  
  38.